home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / caricascriptrexx.arexx < prev    next >
Text File  |  1996-07-02  |  321b  |  10 lines
  1. /* carica ed esegue uno script arexx a scelta */
  2.  
  3. address command
  4. setenv drawer '"rexx:"'
  5. setenv pattern '"#?.rexx"'
  6. rxset file '`requestfile title="Esegui questo script Arexx" drawer=$drawer pattern=$pattern multiselect`'
  7. filename = getclip('FILE')
  8. if filename = "" then say "NESSUN FILE SELEZIONATO! "
  9. else rx filename
  10.